home *** CD-ROM | disk | FTP | other *** search
/ Internet.Works 41 / Issue 41.iso / pc / PCSoftware / XML Spy 3.5 / xmlspy35.exe / Main / GlobalSubs.bas < prev    next >
Encoding:
BASIC Source File  |  2000-12-04  |  763 b   |  27 lines
  1. Attribute VB_Name = "GlobalSubs"
  2. Public nRet As Integer
  3. Public objSpy As XMLSpyApplication
  4.  
  5. Public Function GetNameOfKind(nKind As SPYXMLDataKind) As String
  6. Select Case nKind
  7.     Case spyXMLDataComment
  8.         GetNameOfKind = "comment"
  9.     Case spyXMLDataElement
  10.         GetNameOfKind = "element"
  11.     Case spyXMLDataAttr
  12.         GetNameOfKind = "attribut"
  13.     Case spyXMLDataCData
  14.         GetNameOfKind = "CDATA"
  15.     Case spyXMLDataDTDDocStruct
  16.         GetNameOfKind = "DTD docstruct"
  17.     Case Else
  18.         GetNameOfKind = "other"
  19. End Select
  20. End Function
  21.  
  22. Public Sub CheckForError()
  23.     If Err.Number <> 0 Then
  24.         a = MsgBox("Error: " & (Err.Number - vbObjectError) & Chr(13) & "Description: " & Err.Description)
  25.     End If
  26. End Sub
  27.